home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / TELEMARK.ZIP;1 / FOXPROPR.PRG < prev    next >
Encoding:
Text File  |  1992-04-17  |  3.8 KB  |  179 lines
  1. *modify command foxprocu
  2. ***********************************************************
  3. * main                                     *
  4. ***********************************************************
  5. procedure cart0
  6. parameters edi
  7. set cursor on
  8. public fstring,lstring,stepp
  9.  
  10. store 0 to m_q_number
  11. store 0 to m_cust_id
  12. m_agent = space(10)
  13. m_cust_name = space(30)
  14. store 0 to m_cust_phone
  15.  
  16. do case
  17.    ****************** DMAnager
  18. case edi = 1
  19. CLOSE DATA
  20. USE customer 
  21.  
  22. INDEX on cust_id to custid 
  23. index on lname to llist
  24.  
  25.  
  26. * ALLOWS PROGRAM TO SET ORDER BY REFERRING TO INDEX NAME
  27. * Example: SET ORDER TO INV_INV becomes equivalent to SET ORDER TO 1
  28. STORE 1 TO inv_inv, itm_itm, lns_inv, cus_cus, pmt_cus, sal_nam
  29. STORE 2 TO inv_cus,          lns_itm, cus_com, pmt_dat, sal_sal
  30. STORE 3 TO inv_dat
  31.  
  32. hide window all
  33. hide popup all
  34. do foxprocu
  35. ON ERROR
  36. ON KEY
  37. RETURN
  38.  
  39. case edi = 2
  40.    do remember
  41.  return  
  42.    case edi = 3
  43.    STORE .f. TO do_it
  44.    ACTIVATE WINDOW msg2user
  45.    @ 1,2 SAY 'Are you sure you want to quit? ' GET do_it PICT 'Y'
  46.    READ
  47.    DEACTIVATE WINDOW msg2user
  48.    IF .NOT. do_it
  49.     RETURN
  50.   ENDIF
  51.   close all
  52.   copy file foxco.fpt to foxproco.fpt
  53. cancel
  54.    
  55. endcase
  56. *************** !!!!!!!!!!!!!!! ********** end of main case
  57. clear
  58. return
  59.  
  60. ******************************** trick procedure for  popup
  61.  
  62. PROCEDURE remember
  63. PARAMETERS aa
  64. memorize = aa
  65. ACTIVATE POPUP MODI
  66.  
  67.  
  68. PROCEDURE zz
  69. PARAMETERS aa
  70. memorize = aa
  71. ACTIVATE POPUP zzones
  72.  
  73. PROCEDURE ff
  74. PARAMETERS aa
  75. memorize = aa
  76. ACTIVATE POPUP full
  77.  
  78. PROCEDURE as
  79. PARAMETERS aa
  80. memorize = aa
  81. ACTIVATE POPUP asss
  82.  
  83. FUNCTION ready2pr
  84.   DO WHILE .NOT. PRINTSTATUS()
  85.     IF .NOT. YESNO('Printer not ready! I will keep trying...')
  86.       RETURN .f.
  87.     ENDIF
  88.   ENDDO
  89.   RETURN .t.
  90.  
  91. procedure funct
  92. parameters edic
  93.   do case
  94.    case edic=1
  95.        do ff
  96.         return
  97.   case edic=2
  98.         do foxprob3
  99.         on error
  100.         on key
  101.         clear   
  102.         return     
  103.    case edic=3 
  104.            do foxprona
  105.            on error
  106.            on key
  107.            clear
  108.            return    
  109.    case edic=4
  110.           do zz
  111.         return     
  112.         case edic=5
  113.          do as
  114.          return
  115.     endcase
  116.  
  117. return 
  118. ******main return
  119.  
  120.  
  121.  
  122.  
  123. FUNCTION ready2pr
  124.   DO WHILE .NOT. PRINTSTATUS()
  125.     IF .NOT. YESNO('Printer not ready! I will keep trying...')
  126.       RETURN .f.
  127.     ENDIF
  128.   ENDDO
  129.   RETURN .t.
  130.   
  131. FUNCTION yesno
  132.   PARAMETERS MESSAGE
  133.   STORE 'Yes' TO yesno
  134.   ACTIVATE WINDOW yesno
  135.   @ 00,01 SAY MESSAGE
  136.   @ 02,01 SAY 'Continue? Yes/No:' GET yesno PICTURE '@M Yes,No '
  137.   READ
  138.   DEACTIVATE WINDOW yesno
  139.   STORE IIF(yesno='Yes',.t.,.f.) TO retval
  140.   RETURN retval
  141.   
  142. FUNCTION wintitle
  143.   PARAMETERS ctitle
  144.   STORE WCOLS() TO clen
  145.   STORE INT((clen - LEN(ctitle))/2) TO padding
  146.   STORE SPACE(padding) + ctitle + SPACE((clen-LEN(ctitle))-padding) TO padtitle
  147.   RETURN padtitle
  148.   
  149.   * ⁄ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒø *
  150.   * ≥  SYSTEM PROCEDURES                                                  ≥ *
  151.   * ¿ƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒƒŸ *
  152.   
  153. PROCEDURE msg2user
  154.   PARAMETERS message1, message2, message3
  155.   IF message1 = 'CLOSE'
  156.     DEACTIVATE WINDOW msg2user
  157.   ELSE
  158.     ACTIVATE WINDOW msg2user
  159.     CLEAR
  160.     @ 00,00 SAY SPACE(1) + LEFT(message1 + SPACE(71),71) + SPACE(1)
  161.     @ 01,00 SAY SPACE(1) ;
  162.     + LEFT(IIF(PARAMETERS() < 2, SPACE(71), message2) + SPACE(71),71) + SPACE(1)
  163.     @ 02,00 SAY SPACE(1) ;
  164.     + LEFT(IIF(PARAMETERS() < 3, SPACE(71), message3) + SPACE(71),71) + SPACE(1)
  165.   ENDIF
  166.   RETURN
  167.   
  168. PROCEDURE standby
  169.   PARAMETERS msgwords
  170.   ACTIVATE WINDOW standby
  171.   @ 00,01 SAY msgwords
  172.   @ 01,01
  173.   WAIT '                < Press a key or click the mouse to continue. > '
  174.   DEACTIVATE WINDOW standby
  175.   RETURN
  176.   
  177.   
  178.   * EOF
  179.